Use time-convert in with-decoded-time-value

* lisp/calendar/time-date.el (with-decoded-time-value):
Prefer time-convert to current-time on the off chance that code
will use this obsolete macro even after current-time returns pairs.

diff --git a/lisp/calendar/time-date.el b/lisp/calendar/time-date.el
index 37a16d3b98c8be22a2dcb8301f008afc3bd4eb68..b36171259c0d280aca70f70106a84200d7597f95 100644 (file)
--- a/lisp/calendar/time-date.el
+++ b/lisp/calendar/time-date.el
@@ -69,7 +69,7 @@ list (HIGH LOW MICRO PICO)."
                     (pop elt)))
             (time-value (car elt))
             (gensym (make-symbol "time")))
-       `(let* ,(append `((,gensym (or ,time-value (current-time)))
+       `(let* ,(append `((,gensym (or ,time-value (time-convert nil 'list)))
                          (,gensym
                           (cond
                            ((integerp ,gensym)